(comint-previous-matching-input): Use let* in the interactive.

diff --git a/lisp/comint.el b/lisp/comint.el
index c787d5386e5e77f4c1fd70a0fc880b1bd198f53c..5f6d8301c01639157d52c27cff281e0588f89104 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -425,14 +425,14 @@ buffer.  The hook comint-exec-hook is run after each exec."
 With prefix argument N, search for Nth previous match.
 If N is negative, find the next or Nth next match."
   (interactive
-   (let ((minibuffer-history-sexp-flag nil)
-        ;; Don't clobber this.
-        (last-command last-command)
-        (regexp (read-from-minibuffer "Previous input matching (regexp): "
-                                      nil
-                                      minibuffer-local-map
-                                      nil
-                                      'minibuffer-history-search-history)))
+   (let* ((minibuffer-history-sexp-flag nil)
+         ;; Don't clobber this.
+         (last-command last-command)
+         (regexp (read-from-minibuffer "Previous input matching (regexp): "
+                                       nil
+                                       minibuffer-local-map
+                                       nil
+                                       'minibuffer-history-search-history)))
      (list (if (string= regexp "")
               (setcar minibuffer-history-search-history
                       (nth 1 minibuffer-history-search-history))